home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 1 / PC World Interactive 1 - Nisan 1997.iso / nostalji / bbs / modem / qlmain.arj / DOWJONES.SRP < prev    next >
Text File  |  1993-07-20  |  638b  |  53 lines
  1. ;
  2. ; Script for connecting to Dow Jones
  3. ;
  4. CLS
  5. echo "Please wait..."
  6. echo "Logging on to Dow Jones"
  7. localecho "off"
  8. Data "7"
  9. Parity "E"
  10. Stop "1"
  11.  
  12. if djdial = 0
  13.     goto tele:
  14. else if djdial = 1
  15.     goto tym:
  16.  
  17. tele:
  18. echo "Via Telenet At 7-E-1"
  19. dial telenet
  20. wait 1
  21. if baud = 300
  22.     out "\r"
  23. else if baud = 1200
  24.     out "\r"
  25. else
  26.     out "@"
  27. wait 1
  28. out "\r"
  29. in  "TERMINAL=" 15
  30. out "\r"
  31. in  "@" 10
  32. out "C DOW\r"
  33. in  "?" 15
  34. goto finish:
  35.  
  36. tym:
  37. echo "Via Tymnet, 7-E-1"
  38. dial tymnet
  39. wait 2
  40. out "A"
  41. in "in" 15
  42. out "DOW1;;"
  43. in "?" 15
  44. wait 1
  45. goto finish:
  46.  
  47. finish:
  48. out "DJNS\r"
  49. in "WORD" 10
  50. out dpass
  51. out "\r"
  52. end
  53.